R Notebook

nominees[, `:=`(
  clean_category = tolower(gsub('.{7}$', '', category)),
  title = tolower(title),
  producer = tolower(producer),
  distributor = tolower(distributor)

)]


nom90 <- nominees %>% filter(year >= 1990)

shows <-
  nom90 %>%
  group_by(title, type) %>%
  summarise(no = n()) %>%
  spread (type, no)

`summarise()` has grouped output by 'title'. You can override using the `.groups` argument.

shows[is.na(shows)] <- 0
shows$totalType <- shows$Nominee + shows$Winner
shows$totalTypeRatio <- shows$Winner/shows$Nominee

# Top 20 shows by:
# Winners
WStop20 <-  shows[order(-shows$Winner), ][1:15, ]
WStop20Sort <- WStop20[order(WStop20$totalType), ]
WStop20Sort$title <- as.factor(WStop20Sort$title)



viz_dbar <- function(df, xaxis1, xaxis2, yaxis, xname1, xname2) {
  
  fig <- plot_ly(
    df,
    x = xaxis1,
    y = yaxis,
    type = 'bar',
    text=xaxis1,
    textposition='auto',
    orientation = 'h',
    name = xname1,
    marker = list(
      color = 'rgba(153, 153, 153, 0.6)',
      line = list(color = 'rgba(153, 153, 153, 1.0)', width = 3)
    )
  )
  
  fig <- fig %>% add_trace(
    x = xaxis2,
    name = xname2,
    text=xaxis2,
    textposition='auto',
    marker = list(
      color = 'rgba(255, 153, 0, 0.6)',
      line = list(color = 'rgba(255, 153, 0, 1.0)', width = 3)
    )
  )
  m <- list(l=200, r=20, b=10, t=10)
  fig <- fig %>% layout(
    barmode = 'stack',
    xaxis = list(title = "Nominee and Winners"),
    yaxis = list(categoryorder = "array",
                 categoryarray = yaxis,
                 automargin=T, ticksuffix = " "
                 ),
    margin=m
  )
  
  
  fig
}

viz_dbar(
  WStop20Sort,
  WStop20Sort$Nominee,
  WStop20Sort$Winner,
  WStop20Sort$title,
  "Nominee",
  "Winner"
)

NA